Floppyshop 2

home *** CD-ROM | disk | FTP | other *** search

/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / utility.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-21 | 9KB | 244 lines

10 REM ------------------- 100 REM 1000 WINDOPEN 1010 TITLE 1020 LOCATE 1030 PRINT 1040 PRINT 1050 PRINT 1060 PRINT 1070 PRINT 1080 PRINT 1090 WINDOPEN 110 VARNAME 1100 TITLE 1110 LOCATE 1120 FOR 1130 PRINT 1140 NEXT 1150 WINDOW 1160 FADE 1170 WAIT 1180 VARNAME 1190 REM 120 FADE 1200 REM ----> The main program loop 1210 REM 1220 AUTO BACK 1230 REPEAT 1240 ON 1250 VARNAME 1260 IF 1270 IF 1280 IF 1290 IF 130 UPDATE 1300 IF 1310 IF 1320 WAIT VBL 1330 UNTIL 1340 VARNAME 1350 IF 1360 IF 1370 GOTO 1380 REM 1390 REM ----> Disk menu 140 HIDE 1400 REM 1410 VARNAME 1420 ON ERROR 1430 IF 1440 IF 1450 IF 1460 IF 1470 IF 1480 IF 1490 IF 150 PALETTE 1500 IF 1510 GOTO 1520 REM 1530 REM ----> memory menu 1540 REM 1550 VARNAME 1560 IF 1570 GOTO 1580 REM 1590 REM ----> options menu 160 PEN 1600 REM 1610 VARNAME 1620 IF 1630 IF 1640 IF 1650 IF 1660 IF 1670 IF 1680 GOTO 1690 REM 170 LOCATE 1700 REM ----> Copy menu 1710 REM 1720 VARNAME 1730 IF 1740 ON ERROR 1750 OPEN IN 1760 VARNAME 1770 CLOSE 1780 ERASE 1790 RESERVE 180 FADE 1800 BLOAD 1810 CLW 1820 PRINT 1830 PRINT 1840 REPEAT 1850 VARNAME 1860 IF 1870 VARNAME 1880 IF 1890 IF 190 WAIT 1900 IF 1910 UNTIL 1920 IF 1930 REM 1940 REM ----> help menu 1950 REM 1960 VARNAME 1970 IF 1980 TITLE 1990 CDOWN 20 REM 200 CENTRE 2000 CENTRE 2010 CDOWN 2020 CENTRE 2030 CDOWN 2040 CENTRE 2050 CDOWN 2060 CENTRE 2070 CDOWN 2080 CENTRE 2090 CDOWN 210 FADE 2100 CENTRE 2110 CDOWN 2120 CENTRE 2130 CDOWN 2140 CENTRE 2150 CDOWN 2160 CENTRE 2170 REPEAT 2180 IF 2190 IF 220 WAIT 2200 IF 2210 IF 2220 IF 2230 GOTO 2240 REM 2250 REM ----> error routine for change drive option 2260 REM 2270 CLW 2280 REM 2290 REM ----> quit routine 230 FADE 2300 REM 2310 FADE 2320 REM 2330 REM ----> file copy error routine 2340 REM 2350 CLW 2360 IF 2370 IF 2380 IF 2390 IF 240 WAIT 2400 IF 2410 IF 2420 IF 2430 GOTO 250 PEN 260 LOCATE 270 CENTRE 280 FADE 290 WAIT 30 REM HANDY UTILITIES 300 FADE 310 WAIT 320 CLS 330 SHOW 340 REM 350 REM ----> Create menus 360 REM 370 MENU$ 380 MENU$ 390 MENU$ 40 REM BY BENCH OF FRESCH! 400 MENU$ 410 MENU$ 420 MENU$ 430 REM 440 REM ----> Create menu options 450 REM 460 MENU$ 470 MENU$ 480 MENU$ 490 MENU$ 50 REM (c)1993 500 MENU$ 510 MENU$ 520 MENU$ 530 MENU$ 540 MENU$ 550 MENU$ 560 MENU$ 570 REM 580 MENU$ 590 REM 60 REM THERE MIGHT BE BUGS 600 MENU$ 610 MENU$ 620 MENU$ 630 MENU$ 640 MENU$ 650 MENU$ 660 MENU$ 670 MENU$ 680 MENU$ 690 MENU$ 70 REM v1.0 700 MENU$ 710 MENU$ 720 MENU$ 730 REM 740 MENU$ 750 MENU$ 760 MENU$ 770 MENU$ 780 MENU$ 790 REM 80 REM 800 MENU$ 810 MENU$ 820 MENU$ 830 REM 840 MENU$ 850 MENU$ 860 MENU$ 870 MENU$ 880 MENU$ 890 MENU$ 90 REM ------------------- 900 MENU$ 910 MENU$ 920 MENU$ 930 REM 940 MENU 950 REM 960 REM ----> Draw the main window and set sound on 970 REM 980 WINDOPEN 990 TITLE